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TATU Fe a = CLI UTILITY COMMAND MACRO FILE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS gy} Eta UNDER A LICENSE AND MAY BE USED AND sorite 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Finnereckatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SHREK AEAAEAAAAAAAREERERARAAERAAARAAAAAARARAARAAAAEEARAEKEEREKETEEETE RA 


FACILITY: STARLET CLI 
ABSTRACT: MACRO LIBRARY 
ENVIRONMENT : 
AUTHOR : W.H.BROWN, CREATION DATE: 7-JUN-1977 
MODIFIED BY: 
v02-003 mLJ0070 Martin L. Jack, 24-Jan-1982 3: 13 


Remove unused variables from SUBMIT context block 
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add 
new ones to support queue name translation and /NAME vs. /LOG 


semantics cleanup. 


101 T.HALVORSEN 08-NOV-1978 
REMOVED UNUSED 2 ARGS FROM DEF_TAG CALLS IN TYPCTXBLK 


102 G.FOWLER 04-SEP-1979 
MODIFIED 


IED DEF OF ay LR TO ALLOW FOR TEST OF CONFLICTING 
QUALIFIERS ON STOP COMMAND. 


NS sss 008—9sSsSsSsSsSsSsssSsssSssSss...5.°5°5°5°5°5°5:°5°5 ss) 
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CALL: 


WHERE : 


-SBTTL DECLARATIONS 


: INCLUDE FILES: 
NONE 


MACROS: 


: BUG. CHK = MACRO TO HANDLE AN UN-EXPECTED ERROR 


erno eye CHK ?L1 
BLBS 
SEXIT_S RO 
- ENDM 
TO GENERATE A OFFSET LIST FOR A DATA STRUCTURE 


IT IS USEFUL FOR INPUT ARGUMENT LISTS POSITIVELY INDEXED FROM AP, AND 
WORK AREAS ALLOCATED IN CALL STACK AND NEGATIVELY INDEXED FROM FP. 


SOFFSET INITIAL ,DIRECTION,<<LAB1,CSIZEJ>,...,<LABN,CSIZEJ>> 


INITIAL_IS A REQUIRED VALUE FOR THE INTIAL INDEX WHEN 
ORIGINATING A DATA STRUCTURE DEFINITION. IT IS NORMALLY 
(+) 4 FOR ARGUMENT LISTS AND 0 FOR WORK AREAS. 


DIRECTION IS _A KEYWORD THAT MUST BE: 
POSITIVE - FOR STRUCTURES GROWING UP IN MEMEORY 
NEGATIVE = FOR STRUCTURES GROWING DOWN IN MEMEORY 
OR BLANK, IN WHICH CASE ‘'‘POSITIVE'’ IS ASSUMED. 


THE LABEL, SIZE LIST IS THE SYMBOLIC NAME FOR THE LOCATION 
AND THE OPTIONAL SIZE OF THE es —_. IF BLANK, SIZE IS 
ASSUMED TO BE 4 ( ONE LONGWORD ) 


TO PERMIT THE DEFINITION OF AN INDEFINITLY LARGE NUMBER OF LABELS, 
THE MACRO MAY BE CONTINUED. IN THIS CASE THE ‘INITIAL’ AND 
"DIRECTION ARGUMENTS MUST BE BLANK. 

-MACRO SOFFSET INITVALUE,DIRECTION,SYMLST 

*PSECT SABS$ AB 

-_ oe. INT TVALUE 


IF NB DIR ECTION 
ER - : DIRECTION MUST BE BLANK WHEN CONTIUING; 


CTI 
I RECTION>,<POSITIVE> 
IDN <DIRECTION>,<NEGATIVE> 


¢ 3 
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J 


R ; ‘DIRECTION’ MUST BE ‘‘POSITIVE'’,"'NEGATIVE'', OF BLANK; 


SYM 


1 Sym 


ORE 
“ENON SOF FSET 
-MACRO worrat) SYM,S1Z=4 


<SYMLST> 


Preece esnee 


. F ° 
-ERRO pteeee SIZ PARAMETER NEGATIVE teeee; 
IF LT,DIR... 
“BLKB = =SIZ 
-ENDC 
.1F NB,SYM 
“LIST © MEB 

SYM: 
.NLIST MEB 
“IF GT,DIR... 
“BLKB S12 


. C 
[ENDM SOFFST1 
3% 
: INTERNAL MACRO _SETATA 
: THIS MACRO IS USED TO INTIALIZE A DATA AREA 
> CALL: _SETATA TYPE,LIST 
: TY PE Is *S", “wT. — _ = “— -* we ms a” 
; INDICATES THE TYPE OF DATA FOR INITIALIZATION 
; LIST IS THE VALUES TO BE INITIALIZED 


-MACRO _SETATA TYPE=L,LIST 
- IRP 


“12_,<LIST> 

.11F 10N <TYPE><B>, -BYT a. 
LIF IDN <TYPE><wW>, -WORD _22_ 
S1IF IDN <TYPE><L>, AGNES 27. 
LIF IDN <TYPE><A>, -LONG _22_ 
-lIF IDN <TYPE><Q>, - QUAD ZZ 
-1IF IDN <TYPE><CS>, eASCIC T_27_: 
-LIF IDN <TYPE><T>, ASCII ft 27L: 

ENDR 

[ENDM 


3 LOCAL MACROS TO GENERATE COUNTED STRING OR TEXT BLOCK 


s .MACRO .BLKCS VAL 
“BLKB VAL 


CLIUTLMAC MAR; 1 
-ENDM 
MACRO .BLKT 
-BLKB VAL 


-+ 
MACRO DEF _CTXBLK 


BASE_ = 


-lIF EQ <_ALL_>, 
.ENDM 


+ 
; MACRO DEF_ELE 


> SAVE 

“PSECT $ABSS 
“BASE_ = OFFSET 
TENDC 


D 
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VAL 


; THIS MACRO IS USED TO SET THE BASE OF THE CONTEXT BLOCK 
; CALL: DEF _CTXBLK NAME C,OFFSET] C,ALLOCATE] C,GBLI 
; WHERE: NAME IS THE POINT OF REFERENCE IN THE BLOCK 


OFFSET IS AN OPTION VALUE INDICATING THE OFFSET FORM THE 
LOWEST ADDRESS ASSIGNED TO THE BLOCK TO THE ZEROTH INDEX 


ALLOCATE IS A KEYWORD, THAT IF EQUAL TO YES ALLOCATES THE BLOCK 
GBL IS A FLAG THAT IF IDENTICAL TO "'YES'* WILL CAUSE THE 
BLOCK REFERENCE LABEL TO BE DEFINED GLOBALLY. 


— DEF _CTXBLK NAME , OF FSET=0,ALLOCATE=NO,GBL=NO 


-ALL_ = 0 

-I1F IDN <GBL><YES> 
_GBL_ = 1 

—— NAME 

-IF IDN <ALLOCATE><YES> 
ALL. = 1 


NAME = . + OFFSET 
NAME 


ABS 


s@ 
> MACRO DEF_CTXEND = END OF CONTEXT BLOCK 
<MACRO DEF _CTXEND 


- RESTORE 


: THIS MACRO IS USED TO DEFINE A ELEMENT IN THE CONTEXT BLOCK 
> CALL: DEF_ELE NAME,TYPE,SIZE,VALIST 


WHERE : NAME IS THE SYMBOLIC INDEX INTO THE BLOCK 
TYPE 1S Weweheusteuma nt 
SIZE IS THE NUMBER OF DATA CELLS IN THE ELEMENT 
VALIST IS THE LIST OF INITIAL VALUES FOR THE CELLS 


MACRO DEF ELE NAME,TYPE = L,SIZE=1,VALIST 
-IF EQ _GBC_ 
NAME = . = BASE 


of 
NAME == BASE_ 
“enot 


BLK* TYPE SIZE 


TIF EQ <_ALL_-1> 
IF NB <VALTST> 


“SETATA TYPE,<VALIST> 


TENDC 
-ENDC 
M 


2@ 
3 MACRO DEF_TAG 


3 ate MACRO IS USED TO DEFINE AN OFFSET INTO THE BLOCK 

; WITHOUT ALLOCATING ANY SPACE. THIS IS_USED TO THE SAME AREA 

: ADDRESS IN DIFFERENT WAYS, SUCH AS, EITHER A QUADWORD, OR 
_AS WORD,WORD,LONGWORD IN THE CASE OF A STRING DESCRIPTOR. 


-MACRO DEF_TAG NAME 
-1F EQ _GBL_ 

NAME = . IF BASE_ 

NAME == , BASE_ 
.E enot 
~ENDM 


ge 
; MACRO SKEYWORD 
; THIS MACRO IS USED TO wat: A_STRING FOR THE MATCHKEY SUBROUTINE. 


THE STRING IS A COUNTED STRING, BUT MACRO NAME IS UNIQUE TO PREVENT 
; CONFLICTS IN THE FUTURE. 


SKE YWORD $T,?L1 
-BYTE e7L1-1 
eASCII \ST\ 
L1: 
-ENDM 


3¢ 
3; LOCAL MACRO LIMITS-DETERMIN THE LIMITS OF THE CASE SELECTION 
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-MACRO _LIMITS X,Y 
IF GT <_2_LO-xS, iL 
IF LT <"27HI-x>. “77H 
EnOm 


O=X 
1=X 


«MACRO _SETCASE X,Y 


-= 2. #<<K=_2_LO>#2> 
“WORD Y-_ ot 
~ENDM 


+ 
MACRO SELECT CASE = MACRO TO GENERATE A CASE TABL 


— WITH INPUTS 
CONSISTING OF VALUES, ADDRESS PAIRS. THE TABLE IS BULIT FROM THE 
VALUES SUPPLIED, SETTING LIMITS AND UN-USED VALUES CORRECTLY. 

THE VALUE/ADDRESS PAIRS NEED NOT BE SUPPLIED IN ANY SPECIFIC ORDER. 


CALL: SELECT_CASE VAL.<VAL_ADR_LIST>, TYPE 
WHERE : ‘VAL'' IS THE MACRO SOURCE OPERAND USED FOR CASE SELCTION 


“VAL _ADR_LIST’’ IS A LIST OF PAIRS OF VALUES AND ASSOCIATED 
ROUTINE ADDRESSES FROM WHICH TO SELECT. 


““TYPE’’ IS AN OPTIONAL KEY VALUE THAT, IF SPECIFIED TO BE 


IED 
BYTE CAUSES THE CASE INSTRUCTION TO BE GENERATED WITH 
BYTE CONTEXT, RATHER THAN THE DEFAULT WORD CONTEXT. 


sMACRO SELECT_CASE VAL LIST, TYPE 
000000 


_2_LO=1 
_2_H1=0 
- IRP _2_-<LIST> 
LIMITS ~2- 
N R 
2 NU=_Z_HI-_2 LO+1 
~1F TOR <TYPE><BYTE> 
CASEB VAL,#<_2_L0>,#<_2Z_NU-1> 
CASEW VAL,#<_2_LO>,#<_Z_NU-1> 
»ENDC 
ahaeo*e 
-REPT 27_NU 
WORD 2_7_NU®2> 
eENDR 
-iRP 2. <LIST> 
SETCASE _7_ 
eENDR 
-ENDM 


t MACRO TO GENERATE STRING TO BE USED IN A SYSTEM CALL 
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MACRO SYS_STR BrRINs. 11,22 
WORD < 2-L1>, 


“LONG = 

Ly: “ASCI1 \STRING\ 

.ENDM 

; MACRO TO GENERATE A COUNTED STRING 
“MACRO CNT STR ST,2L1 
SASCII \STA 
.ENDM 


: MACRO TO PERFORM A COMAPIR OF 2 QUADWORDS 
; NOTE: DISPLACEMENT mop 1S ASSUMED 
.MACRO CMPQUAD ARG1,ARG2,?L1 

CMPL 4+ARGI, 4+AR Reo 


CMPL ARG) ,ARG2 


MACRO TO SET OR CLEAR A BIT BY BIT NUMBER 


CALL: 

on SETBIT B1TNUM,FLAGWORD 
"  CLRBIT BITNUM,FLAGWORD 

WHERE 


"BITNUM IS ANY VALID SOURCE OPERAND SECIFYING THE BIT 
OFFSET FROM THE FLAG BASE TO SET/CLEAR 


FLAGWORD IS ANY VALID DESTINATION OPERAND 


-MACRO SETBIT VAL,FLAG 
“NTYPE 


VAL 

-1F EQ 2 .$$_-*xOEF> 
“IF NDF V 
oe SBVAL. FLAG,.+1 
IF LT <VAL-8> 
ois aciavaL>. FLAG 
BBSS #VAL,FLAG,.+1 
~ENDC 

-ENDC 

oIFF 
BBSS VAL,FLAG,.+1 
-ENDC 

~ENDM SETBIT 


H 
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FN 
arte S“#VAL,FLAG,.+1 
IF LT pe 
ng #<1QVAL>,FLAG 
BBCC #VAL,FLAG,.+1 
~ENDC 
-ENDC 
o 1FF 
BBCC VAL ,.FLAG,.+1 
-ENDC 
~ENDM CLRBIT 


PROGRAM SECTION DEFINITION MACROS 
ARGUMENTS ARE: 


1) SECTION NAME (KEY WORD IS NAME) 
2) ALIGNMENT — (KEY WORD IS ALIGN) 


IN ALL CASE, ARGUMENTS ARE OPTIONAL 
MACRO TO GENERATE A PURE PROGRAM SECTION 
MACRO PURE_SECTION NAME=PURE ALIGN=BYTE 
-PSECT NAME — EXE,RD,NOWRT,ALIGN 
.ENDM — PURE_SECTION 
; MACRO TO GENERATE IMPURE DATA SEGMENT 
MACRO IMPURE_DATA NAME=RWDATA,ALIGN=LONG 
-PSECT NAME § NOEXE,WRT,RD 
.ENDM — IMPURE_DATA 
MACRO TO GENERATE A STRING WITH DESCRIPTOR 
STRING_DESC <STRING> 


WHERE: 
<STRING> IS THE STRING TO BE USED 


-MACRO STRING_DESC ST 
-NCHR .$$.,<ST> 


-LONG +4 
ASCII \ST\ 
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-ENDM 
; MACRO TO DEFINE BITS FOR QUEUE MANAGER 


«MACRO QMNBITS 


-VIELD QMN,1,<- : CLI CONFLICT BITS 
BATCH, : OPTION APPLIES TO BATCH QUEUE 
Device, : OPTION APPLIES TO DEVICE QUEUE 
TART, - : OPTION IS FOR START 
RESTART,= : OPTION IS FOR RESTART 
QUEUE, : OPTION IS FOR STOP COMMAND 
EQUE,- : OPTION IS FOR STOP COMMAND 
.MACRO QMNBITS 
“ENDM QMNBITS 
*EN QMNBITS 
3 DEFINE CONTEXT BLOCK FOR SUBMIT 
MACRO SMTCTXBLK AL LOaN 0 
.11F 10N <ALLO><YES> . GLOB SMTS$CTXBLK 
DEF_CTXBLK $ TSCTXBLK ALLOCATESALLO 
BEF _ on _W_FLAGS.W ; FLAGS 
DEF"ELE SMT“W~RSPCHAN,W ; MAILBOX CHANNEL FOR RESPONCES FROM JBC 
DEF-ELE SMT“L~STATUS ; IMAGE STA 
DEF _ELE S4T_Q_ QUEDES,Q 3 ste Fe nang * ueu 
DEF _ELE SMT_L_PRIPT ; Pointer to ASCI 7PRINT "qualifier 
DEF _ELE SMT_Q ° 3; Descriptor for /NAME qualifier 
DEF _ELE Shit 2 -LOGDES .a 3 reece ipter for /LOG qualifier 
DEFELE SMT"O- Q : 10SB FOR Q10° 
DEF"ELE SMT“L“MSGPTR : POINTER TO NEXT BYTE FREE IN MEASSAGE 
DEF-ELE SMT~W- : JOB CONTROLLER ASSIGNED NUMBER 
DEF-ELE SMT~B~ SPARE .B : Spare byte e 
DEF-ELE SMT~B-B1T ; CLI BITS HERE 
DEF“ELE SMT~T~DEVNAM.CS,16 : DEVICE NAME HERE-COUNTED STRING 


DEF _CTXEND 
> DEFINE COMMOM PARAMETERS 


-VIELD SMT,1,<- 3 SUBMIT COMMAND FLAGS 
<NAME, ,M>, : USER SUPPLIED A NAME 
<IDENT, .M>.- > SHOW IDENT AT END OF SUBMIT 
<REMOTE. ,M>, = : "/REMOTE' GIVEN 
<PRTCMD, .M>,= : DOING A PRINT COMMAND 


> 
eMACRO = SMTCTXBLK 
eENDM = SMTCTXBLK 
-ENDM = SMTCTXBLK 
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; GENERATE A CONTEXT BLOCK FOR THE IMAGE "TYPE" 
‘ -MACRO TYPCTXBLK ALLO=NO 
-11F IDN <ALLO><YES>, .GLOBL TYPSCTXBLK 


DEF_CTXBLK TYPSCTXBLK, Egg LOREM, ; DEFINE START OF CONTEXT BLOCK 
“DEF_ELE TYP_L_STAT SAVE AREA FOR FINAL STATUS 
DEF TAG TYP~A7BUFDES UFFER DESCRIPTOR 
DEF"ELE TYP"W~BUF CNT, Bu FFER COUNT WORD 
DEF “EL eee te Ss mursiz™ SIZE KEPT IN SPARE WORD OF DESCRIPTOR 
DEF"ELE TYPTATBUFADR.A.1.LINBUF ; ADDRESS OF BUFFER 


DEF __CTXEND ~lbg 
MACRO TYPCTXBLK 
-ENDA = TYPCTXBLK 
-ENDM = =TYPCTXBLK 
GENERATE A CONTEXT BLOCK FOR THE IMAGE ‘'XXx’’ 
MACRO = XXXCTXBLK ALLO=NO 
-LIF IDN <ALLOD><YES>,  .GLOBL XXXSCTXBLK 
DEF “fret eee eALLOCATE=ALLO ; DEFINE START OF CONTEXT BLOCK 


z XX_L_STATUS,L,1,1 7° SAVE AREA FOR FINAL STATUS 

DEF-TAG XXX7Q"BUFDES ; BUFFER DESCRIPTOR 

DEF"ELE XXX~W~BUF CNT,W BUFFER COUNT W 

DEFTELE XXX"W~BUFSIZ.W,1,L nour Siz. SIZE KEPT IN ARE WORD OF DESCRIPTOR 
a _DEFELE XXX"A"BUFADR.A.1.L : ADDRESS OF BUFFER 


MACRO XXXCTXBLK 
eENDM = XXXCTXBLK 
eENDM = =XXXCTXBLK 
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